10 input A
20 input B
30 C=Adiv B
40 D=RMmul 1000div B
50 print #1,C,".",D
:return ;run 